www.gusucode.com > 婚庆仪礼策划公司网站系统源代码 梦紫色 > 婚庆仪礼策划公司网站系统源代码 梦紫色/Admin/inc/pro_body.asp
<%sub adminpro_body()
dim totalnews,Currentpage,totalpages,i
sql="select * from p_info order by p_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<HTML><HEAD><TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="inc/djcss.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
<SCRIPT language=javascript>
var upfile_obj;
function OnUpFile()
{
upfile_obj.src=upfile_obj.lowsrc;
upfile_obj.src=document.forms["form1"].upfile.value;
}
</SCRIPT>
<script language = "javascript">
var i,j;
j=0;
goaler = new Array();
<%set rs_p=conn.execute("select * from p_class_small order by p_small_id")
if rs_p.eof then
i=0
%>
goaler[0] = new Array("无分类","","");
<%else
i=0
do while not rs_p.eof%>
goaler[<%=i%>] = new Array("<%=rs_p("p_small_type")%>","<%=rs_p("p_type")%>");
<%rs_p.movenext
i=i+1
loop
end if
rs_p.close
%>
j=<%=i%>;
function changelocation(location_id)//传递一级分类的值,从而改变二级分类
{
//alert(location_id)
document.form1.p_small_type.length = 0;
var p_type=location_id;
var i;
for (i=0;i < j; i++)
{
//alert(goaler[i][1])
if (goaler[i][1] == p_type )
{
//alert(goaler[i][0])
document.form1.p_small_type.options[document.form1.p_small_type.length] = new Option(goaler[i][0],goaler[i][0]);
}
}
}
</script>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) background=inc/dj_bg.gif>
<table align="center" width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
<tr>
<td bgcolor="#E8E8E8" colspan="4">服务管理(图片上传时请注意图片的大小和格式，只可以上传大小在200K以下的“.jpg”或“.gif”结尾的图片。)</td>
</tr>
<tr bgcolor="#E8E8E8" align="center">
<td class="chinese" width="17%" bgcolor="#F5F5F5">服务导航</td>
<td width="26%" bgcolor="#F5F5F5" class="chinese">标题</td>
<td width="37%" bgcolor="#F5F5F5" class="chinese">服务类别</td>
<td class="chinese" width="20%" bgcolor="#F5F5F5">操作</td>
</tr>
<%if Not rs.EOF then
dim newsperpage
newsperpage=10
rs.movefirst
rs.pagesize=newsperpage
if trim(request("page"))<>"" then
page1=trim(request("page"))
if check_num(page1)=true then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
End if
else
currentpage=1
end if
else
currentpage=1
End if
totalnews=rs.recordcount
if currentpage<>1 then
if (currentpage-1)*newsperpage<totalnews then
rs.move(currentpage-1)*newsperpage
dim bookmark
bookmark=rs.bookmark
End if
End if
if (totalnews mod newsperpage)=0 then
totalpages=totalnews\newsperpage
else
totalpages=totalnews\newsperpage+1
End if
i=0
Do While Not rs.EOF and i<newsperpage%>
<tr>
<td bgcolor="#FFFFFF" class="chinese" align="center">服务导航</td>
<td bgcolor="#FFFFFF" class="chinese"><%= rs("p_name") %></td>
<td bgcolor="#FFFFFF" class="chinese"> <%= rs("p_type") %>(<%
'sql="select p_type_e from p_class where p_type ='"+trim(rs("p_type"))+"'"
'set rs1=server.createobject("adodb.recordset")
'rs1.open sql,conn,1,1
'if not rs1.eof then
'response.Write(rs1("p_type_e"))
'else
response.Write(rs("p_small_type"))
'end if
'rs1.close%>) </td>
<td bgcolor="#FFFFFF" class="chinese" align="center"><a href="admin_pro.asp?id=<%=rs("p_id")%>&action=editpro#editpro">修改</a> <a href="admin_pro.asp?id=<%=rs("p_id")%>&action=delpro#delpro">删除</a> <a href="../b_cpxq.asp?ProID=<%=rs("p_id")%>" target=_blank></a></td>
</tr>
<%i=i+1
rs.movenext
loop
else
if rs.EOF and rs.BOF then%>
<tr align="center">
<td bgcolor="#FFFFFF" colspan="4" class="chinese">当前没有服务！</td>
</tr>
<%End if
End if%>
</table>
<table align="center" width="98%" border="0" cellspacing="0" cellpadding="0">
<form name="form100" method="post" action="admin_pro.asp">
<tr>
<td class="chinese" align="right"><%=currentpage%> /<%=totalpages%>页,<%=totalnews%>条记录/<%=newsperpage%>篇每页.
<%
i=1
showye=totalpages
if showye>10 then
showye=10
End if
for i=1 to showye
if i=currentpage then
%>
<%=i%>
<%else%>
<a href="admin_pro.asp?page=<%=i%>"><%=i%></a>
<%End if
next
if totalpages>currentpage then
if request("page")="" then
page=1
else
page=request("page")+1
End if%>
<a href="admin_pro.asp?page=<%=page%>" title="下一页">>></a>
<%End if%>
<input type="text" name="page" class="textarea" size="4">
<input type="submit" name="Submit" value="Go" class="button"></td>
</tr>
</form>
</table>
<br>
<%if request.QueryString("action")="newpro" then%>
<table align="center" width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
<form name="form1" method="post" action="">
<INPUT name="upfile" onchange=return(OnUpFile()) type=hidden>
<tr>
<td colspan="2" bgcolor="#E8E8E8"><a name="newpro">新的服务</a></td>
</tr>
<tr>
<td width="36%" height="25" bgcolor="#FFFFFF" class="chinese"> 标 题:
<input name="p_name" type="text" class="textarea" id="p_name" size="30" maxlength="30">
<span class="style1">*</span> </td>
<td width="64%" bgcolor="#FFFFFF" class="chinese">
<input name="p_name_e" type="text" class="textarea" id="p_name_e" size="30" maxlength="30" style="display:none;"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese"> <!--服务规格: -->
<input name="p_spec" type="text" class="textarea" id="p_spec" size="30" maxlength="30" style="display:none"></td>
<td bgcolor="#FFFFFF" class="chinese">
<input name="p_spec_e" type="text" class="textarea" id="p_spec_e" size="30" maxlength="30" style="display:none;"><input name="p_other" type="checkbox" id="p_other3" value="1" style="display:none" >
<!--推荐 --></td>
</tr>
<tr>
<td height="12" bgcolor="#FFFFFF" class="chinese"> 服务类别:
<select name="p_type" size="1" id="p_type" onChange="changelocation(document.form1.p_type.options[document.form1.p_type.selectedIndex].value)">
<%set rs=conn.execute("select p_id,p_type from p_class")
if rs.eof then%>
<option selected value="">无一级分类</option>
<%else%>
<option selected value="">一级分类</option>
<%do while not rs.eof
%>
<option value="<%=rs("p_type")%>"><%=rs("p_type")%></option>
<%rs.movenext
loop
end if%>
</select> <select name="p_small_type" style="display:none;" >
<option selected value="">二级分类</option>
</select> </td>
<td height="12" bgcolor="#FFFFFF" class="chinese"><input name="p_other2" type="checkbox" id="p_other2" value="1" style="display:none;">
<!-- <input name="p_order1" type="text" class="textarea" id="p_order1" value="0" size="15" maxlength="15"> -->
<input name="p_order1" type="checkbox" id="p_order1" value="1" style="display:none;">
<!--特色
--></td>
</tr>
<tr style=" display:none;">
<td bgcolor="#FFFFFF" class="chinese"> </td>
<td bgcolor="#FFFFFF" class="chinese"> </td>
</tr>
<tr style=" display:none;">
<td height="13" bgcolor="#FFFFFF" class="chinese"><input name="p_jianjie" type="text" class="textarea" id="p_jianjie" size="60" maxlength="40"> </td>
<td height="13" bgcolor="#FFFFFF" class="chinese"><input name="p_jianjie_e" type="text" class="textarea" id="p_jianjie_e" size="60" maxlength="40"></td>
</tr>
<tr>
<td height="15" colspan="2" bgcolor="#FFFFFF">服务缩略图:<input name="p_pic" type="text" class="textarea" id="p_pic" value="" size="30" maxlength="100">
上传图片：<iframe name=uploadformu frameborder=0 width=400 height=22 scrolling=no src=admin_upload.asp></iframe> </td>
</tr>
<tr>
<td height="25" colspan="2" align="left" bgcolor="#FFFFFF" class="chinese"> 详细说明：
以下编辑器使用和Word相似,但请注意内容不要太多字数在1500以下为佳。</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"><textarea name="p_epitome" style="display:none"></textarea><iframe ID="eWebEditor1" src="eWebEditor/ewebeditor.asp?id=p_epitome&style=standard" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe> </td>
</tr>
<tr>
<td colspan="2" align="left" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"><textarea name="p_epitome_e" style="display:none"></textarea><!--<iframe ID="eWebEditor1" src="eWebEditor/ewebeditor.asp?id=p_epitome_e&style=standard" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe> --></td>
</tr>
<tr>
<td height="30" colspan="2" align="center" bgcolor="#F5F5F5" class="chinese">
<input type="submit" name="Submit2" value="确定新增" class="button">
<input type="reset" name="Reset" value="清空重填" class="button"> </td>
</tr>
<input type="hidden" name="action" value="newpro">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%End if
if request.QueryString("action")="editpro" then
if request.querystring("id")="" then
errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
Call diserror()
response.End
else
if Not isinteger(request.querystring("id")) then
errmsg=errmsg+"<br>"+"<li>非法的服务ID参数！"
Call diserror()
response.End
End if
End if
sql="select * from p_info where p_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table align="center" width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
<form name="form1" method="post" action="">
<INPUT name="upfile" onchange=return(OnUpFile()) type=hidden>
<input name="upfile2" type="hidden" value="<%= rs("p_pic") %>">
<tr>
<td colspan="2" bgcolor="#E8E8E8"><a name="newpro">修改服务</a></font>
(注意：不要修改的地方，请不要改动保持原样！）</td>
</tr>
<tr>
<td width="38%" bgcolor="#FFFFFF" class="chinese"> 标题:
<input name="p_name" type="text" class="textarea" id="p_name" value="<%= rs("p_name") %>" size="30" maxlength="30">
<span class="style1">*</span> </td>
<td width="62%" bgcolor="#FFFFFF" class="chinese">
<input name="p_name_e" type="text" class="textarea" id="p_name_e" value="<%= rs("p_name_e") %>" size="30" maxlength="30" style="display:none;"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese"><!-- 服务规格: -->
<input name="p_spec" type="text" class="textarea" id="p_spec" value="<%= rs("p_spec") %>" size="30" maxlength="30"style="display:none;" >
</td>
<td bgcolor="#FFFFFF" class="chinese">
<input name="p_spec_e" type="text" class="textarea" id="p_spec_e" value="<%= rs("p_spec_e") %>" size="30" maxlength="30" style="display:none;"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese"> 服务类别:
<select name="p_type" id="p_type" onChange="changelocation(document.form1.p_type.options[document.form1.p_type.selectedIndex].value)">
<%
'###############取出类别分类#################
'dim sql_p,rs_p
sql_p="select p_id,p_type from p_class"
set rs_p=server.createobject("adodb.recordset")
rs_p.open sql_p,conn,1,1
if Not(rs_p.BOF and rs_p.EOF) then
Do While Not rs_p.EOF
%>
<option value="<%= rs_p("p_type") %>" <% if rs_p("p_type")=rs("p_type") then Response.Write("selected") End if %> ><%= rs_p("p_type") %></option>
<%
rs_p.movenext
loop
rs_p.close
set rs_p=Nothing
'conn.close
'set conn=Nothing
End if
'####################取出分类结束#####################
%>
</select> <select name="p_small_type"style="display:none;" >
<option selected value="<%=rs("p_small_type")%>"><%=rs("p_small_type")%></option>
</select> </td>
<td bgcolor="#FFFFFF" class="chinese"><input name="p_other" type="checkbox" id="p_other3" value="1" <% if rs("p_other")=1 then %>checked <% End if %> style="display:none;" >
<!--推荐 --> <input name="p_order" type="checkbox" id="p_order2" value="1" <% if rs("p_order")=1 then %>checked <% End if %> style="display:none;" > <!--特色 --></td>
</tr>
<tr style="display:none;">
<td bgcolor="#FFFFFF" class="chinese">服务简介:</td>
<td bgcolor="#FFFFFF" class="chinese"></td>
</tr>
<tr style=" display:none;">
<td bgcolor="#FFFFFF" class="chinese"><input name="p_jianjie" type="text" class="textarea" id="p_jianjie" value="<%= rs("p_jianjie") %>" size="30" maxlength="30"></td>
<td bgcolor="#FFFFFF" class="chinese"><input name="p_jianjie_e" type="text" class="textarea" id="p_jianjie_e" value="<%= rs("p_jianjie_e") %>" size="30" maxlength="30"></td>
</tr>
<tr>
<td height="30" bgcolor="#FFFFFF" class="chinese">服务图片:
<input name="p_pic" type="text" class="textarea" id="p_pic" value="<%= rs("p_pic") %>" size="30" maxlength="100"> </td>
<td height="30" bgcolor="#FFFFFF" class="chinese">
<!--排序数值: <input name="p_order" type="text" class="textarea" id="p_order2" value="<%= rs("p_order") %>" size="15" maxlength="15">
可以不填,数值越小,排得越前 --></td>
</tr>
<tr>
<td colspan="2" align="left" bgcolor="#FFFFFF" class="chinese">上传图片：<iframe name=ad frameborder=0 width=400 height=22 scrolling=no src=admin_upload.asp></iframe></td>
</tr>
<tr>
<td colspan="2" align="left" bgcolor="#FFFFFF" class="chinese">简单说明：</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF" class="chinese"><textarea name="p_epitome" style="display:none"><%=rs("p_epitome")%></textarea><iframe ID="eWebEditor1" src="eWebEditor/ewebeditor.asp?id=p_epitome&style=standard" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe> </td>
</tr>
<tr>
<td colspan="2" align="left" bgcolor="#FFFFFF" class="chinese"></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF" class="chinese"><textarea name="p_epitome_e" style="display:none"><%=rs("p_epitome_e")%></textarea><!--<iframe ID="eWebEditor1" src="eWebEditor/ewebeditor.asp?id=p_epitome_e&style=standard" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe> --></td>
</tr>
<tr>
<td height="30" colspan="2" align="center" bgcolor="#F5F5F5" class="chinese">
<input type="submit" name="Submit2" value="确定修改" class="button">
<input type="reset" name="Reset" value="清空重填" class="button"> </td>
</tr>
<input type="hidden" name="id" value="<%= cint(request.querystring("id")) %>">
<input type="hidden" name="action" value="editpro">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%End if
if request.QueryString("action")="delpro" then
if request.querystring("id")="" then
errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
Call diserror()
response.End
else
if Not isinteger(request.querystring("id")) then
errmsg=errmsg+"<br>"+"<li>非法的服务ID参数！"
Call diserror()
response.End
End if
End if
sql="select * from p_info where p_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table align="center" width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
<form name="form1" method="post" action="">
<tr>
<td bgcolor="#E8E8E8"><a name="newpro">删除服务</a></font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese"> 服务名称: <%= rs("p_name") %></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese"> 服务型号:<%= rs("p_spec") %></td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFFF" class="chinese"> 简单说明:</td>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#FFFFFF" class="chinese"> <%= rs("p_jianjie") %></td>
</tr>
<tr>
<td bgcolor="#F5F5F5" class="chinese" height="30" align="center">
<input type="submit" name="Submit2" value="确定删除" class="button">
【<a href="admin_pro.asp">返回</a>】 </td>
</tr>
<input type="hidden" name="id" value="<%= request.querystring("id") %>">
<input type="hidden" name="action" value="delpro">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%End if%>
<br>
</td>
</tr>
<tr>
<td colspan="3" height="1" background="images/dotlineh.gif"></td>
</tr>
</table>
<%
rs.close
set rs=Nothing
End sub%>